home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Source Code / AppleScript / Additions / GTQ Library 1.2 / Sample Scripts / tracks < prev   
Encoding:
Text File  |  1994-05-03  |  395 b   |  15 lines  |  [TEXT/ToyS]
  1. on run
  2.     repeat with i from 1 to (number of tracks on audio CD)
  3.         set ti to (track information for audio CD for track i)
  4.         display dialog (convert(ti))
  5.     end repeat
  6.     return
  7. end run
  8.  
  9. on convert(t)
  10.     set s to "{"
  11.     set s to s & "minutes=" & (mins of t as string) & ","
  12.     set s to s & "seconds=" & (secs of t as string) & ","
  13.     set s to s & "frames=" & (frames of t as string) & "}"
  14.     return s
  15. end convert